Option Public
Option Explicit

%Include "lsconst.lss" 'include constants file
'Use ""

%REM

%END REM
'***** CONSTANTS *****

'/**
' * 数值常量描述
' */
Public Const PUBLIC_CONST_INTERGER% = 0

'/**
' * 字符串常量描述
' */
Public Const PUBLIC_CONST_STRING$ = ""




Function doWithView(strParm As String)As Boolean
'/**
' * 方法简介
' * 
' * @param 参数名 参数说明
' * @return 返回类型 返回说明
' * @depends
' * @see
' * @error
' * @version 1.0
' * @author
' */
try:
	'set up error handler
	On Error GoTo catch
	
	Dim session As New NotesSession
	Dim dbCurrent As NotesDatabase
	Dim view As NotesView
	Dim doc As NotesDocument
	
	Const VIEW_NAME = "$All"
	
	Set dbCurrent = session.Currentdatabase
	Set view = dbCurrent.Getview(VIEW_NAME)
	
	If Not view Is Nothing Then
		view.Autoupdate = False
		
		Set doc = view.GetFirstDocument
		Do While Not doc Is Nothing
			
			Set doc = view.GetNextDocument(doc)
		Loop
		
		
		'view.Autoupdate = true
	Else
		MsgBox "View Not Exist:" + VIEW_NAME
	End If
	
	GoTo finally
catch:
	'log error
	'Msgbox Erl & ":" & Error
	MsgBox LSI_Info(2) & " called by " & LSI_Info(12) & "(" & LSI_Info(430) & "): " & Error$ & " - Line: " & CStr(Erl)
	'resume to the final thing
	Resume finally
	
finally:
	'do the final thing
	Exit Function
End Function
Function functionSample(strParm As String)As Boolean
'/**
' * 方法简介
' * 
' * @param 参数名 参数说明
' * @return 返回类型 返回说明
' * @depends
' * @see
' * @error
' * @version 1.0
' * @author
' */
try:
	'set up error handler
	On Error Goto catch
	
	Goto finally
catch:
	'log error
	'Msgbox Erl & ":" & Error
	MsgBox LSI_Info(2) & " called by " & LSI_Info(12) & "(" & LSI_Info(430) & "): " & Error$ & " - Line: " & CStr(Erl)
	'resume to the final thing
	Resume finally
	
finally:
	'do the final thing
	Exit Function
End Function
Private Sub lsdoc_description
%REM
脚本库简介（可以通过LotusScript.doc自动生成开发文档）
%END REM
End Sub
Function subSample(strParm As String)
'/**
' * 过程简介
' * 
' * @param 参数名 参数说明
' * @depends
' * @see
' * @error
' * @version 1.0
' * @author
' */
try:
	'set up error handler
	On Error GoTo catch
	
	GoTo finally
catch:
	'log error
	'Msgbox Erl & ":" & Error
	MsgBox LSI_Info(2) & " called by " & LSI_Info(12) & "(" & LSI_Info(430) & "): " & Error$ & " - Line: " & CStr(Erl)
	'resume to the final thing
	Resume finally
	
finally:
	'do the final thing
	Exit Function
End Function